  if(ionprod) then 
 
;;------------------------------------------------------------------------------

  ;;---------------------
  ;; EUR 
  ;;---------------------

  if(is.eq.idp(0)) then 
     res@trYMaxF =  10.
  end if 

  if(is.eq.idp(1)) then 
     res@trYMaxF =  4.
  end if 

  if(is.eq.idp(2)) then 
     res@trYMaxF =  12.
  end if 

  if(is.eq.idp(3)) then 
     res@trYMaxF =  10.
  end if 

  if(is.eq.idp(4)) then 
     res@trYMaxF =  8.
  end if 

  if(is.eq.idp(5)) then 
     res@trYMaxF =  8.
  end if 

  ;;---------------------
  ;; ASIA 
  ;;---------------------

  if(is.eq.idp(6)) then 
     res@trYMaxF =  10.
  end if 

  if(is.eq.idp(7)) then 
     res@trYMaxF =  15.
  end if 

  if(is.eq.idp(8)) then 
     res@trYMaxF =  20.
  end if 

  if(is.eq.idp(9)) then 
     res@trYMaxF =  15.
  end if 

  if(is.eq.idp(10)) then 
     res@trYMaxF =  18.
  end if 

  if(is.eq.idp(11)) then 
     res@trYMaxF =  15.
  end if 


  ;;---------------------
  ;; NA 
  ;;---------------------

  if(is.eq.idp(12)) then 
     res@trYMaxF =  15.
  end if 

  if(is.eq.idp(13)) then 
     res@trYMaxF =  1.5 
  end if 

  if(is.eq.idp(14)) then 
     res@trYMaxF =  21.
    ;res@trYMaxF =  8.
  end if 

  if(is.eq.idp(15)) then 
     res@trYMaxF =  8. 
  end if 

  if(is.eq.idp(16)) then 
     res@trYMaxF =  2.1 
  end if 

  if(is.eq.idp(17)) then 
     res@trYMaxF =  4.0 
  end if 

  ;;---------------------
  ;; SA 
  ;;---------------------

  if(is.eq.idp(18)) then 
     res@trYMaxF =  0.080
  end if 

  if(is.eq.idp(19)) then 
     res@trYMaxF =  0.12
  end if 

  if(is.eq.idp(20)) then 
     res@trYMaxF =  0.080
  end if 

  if(is.eq.idp(21)) then 
     res@trYMaxF =  0.30
  end if 

  if(is.eq.idp(22)) then 
     res@trYMaxF =  0.06 
  end if 

  if(is.eq.idp(23)) then 
     res@trYMaxF =  0.1
  end if 


;;------------------------------------------------------------------------------

  else ;; radon concentration 

;;------------------------------------------------------------------------------

  if(True) then 

  ;;---------------------
  ;; EUR 
  ;;---------------------

  if(is.eq.idp(0)) then 
     res@trYMaxF =  18000.
  end if 

  if(is.eq.idp(1)) then 
     res@trYMaxF =  5000.
  end if 

  if(is.eq.idp(2)) then 
     res@trYMaxF =  18000.
  end if 

  if(is.eq.idp(3)) then 
     res@trYMaxF =  15000.
  end if 

  if(is.eq.idp(4)) then 
     res@trYMaxF =  12000.
  end if 

  if(is.eq.idp(5)) then 
     res@trYMaxF =  10000.
  end if 

  ;;---------------------
  ;; ASIA 
  ;;---------------------

  if(is.eq.idp(6)) then 
     res@trYMaxF =  18000.
  end if 

  if(is.eq.idp(7)) then 
     res@trYMaxF =  24000.
  end if 

  if(is.eq.idp(8)) then 
     res@trYMaxF =  30000.
  end if 

  if(is.eq.idp(9)) then 
     res@trYMaxF =  24000.
  end if 

  if(is.eq.idp(10)) then 
     res@trYMaxF =  30000.
  end if 

  if(is.eq.idp(11)) then 
     res@trYMaxF =  25000.
  end if 


  ;;---------------------
  ;; NA 
  ;;---------------------

  if(is.eq.idp(12)) then 
     res@trYMaxF =  24000.
  end if 

  if(is.eq.idp(13)) then 
     res@trYMaxF =  2400.
  end if 

  if(is.eq.idp(14)) then 
     res@trYMaxF =  30000.
  end if 

  if(is.eq.idp(15)) then 
     res@trYMaxF =  12000.
  end if 

  if(is.eq.idp(16)) then 
     res@trYMaxF =  4000.
  end if 

  if(is.eq.idp(17)) then 
     res@trYMaxF =  6000.
  end if 

  ;;---------------------
  ;; SA 
  ;;---------------------

  if(is.eq.idp(18)) then 
     res@trYMaxF =  150.
  end if 

  if(is.eq.idp(19)) then 
     res@trYMaxF =  210.
  end if 

  if(is.eq.idp(20)) then 
     res@trYMaxF =  120.
  end if 

  if(is.eq.idp(21)) then 
     res@trYMaxF =  500.
  end if 

  if(is.eq.idp(22)) then 
     res@trYMaxF =  100.
  end if 

  if(is.eq.idp(23)) then 
     res@trYMaxF =  150.
  end if 

  end if 

  end if 
